home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / tools / disk-tools / cd-rom / atapi-cd-rom / a4000-atapi_deu / install < prev    next >
Text File  |  1996-02-26  |  16KB  |  583 lines
  1. ; ************************************************
  2. ; *
  3. ; * $VER: Install-ATAPI A4000 v1.00 Demo Vers (07.09.95)
  4. ; *
  5. ; * Installation for A4000 Atapi Package v 1.00
  6. ; *
  7. ; * Copyright © 1995 by Georg Campana
  8. ; *
  9. ; *    -------   G E R M A N    V E R S I O N    -----------
  10. ; *
  11. ; ************************************************
  12.  
  13. ;/// Variabili
  14. ; ****************************
  15. ;       Variabili
  16. ; ****************************
  17. ;
  18. (set DemoVersion        1) ; Demo Version
  19. (set ProductName        "A4000 ATAPI DEUTSCHE VERSION"  )  ; product name
  20. (set ProductBaseName    "A4000-Atapi")                    ; product base name
  21. (set VersionNum         "1.00 ")                     ; product version number
  22.  
  23. (set OSVersion          (/ (getversion) 65536))
  24. (set PctDone            0)
  25.  
  26. (set CPUOpts            0)    ; 0=68000,68010; 1=68020,68030,68040
  27.  
  28. (makeassign "CDPLUSPLUS" "" (safe))
  29.  
  30. (set Disk1Name                  "CDPLUSPLUS:")
  31.  
  32. (set MemSpace 1024)   ; 1K minimo di spazio necessario su disco
  33.  
  34. ;///
  35.  
  36. ;/// Proc setPkgOPts
  37. (procedure setPkgOpts
  38. ;
  39. ; ****************************
  40. ; * Wich Parts
  41. ; ****************************
  42. ;
  43.   (
  44.         (set PkgOpts
  45.                 (askoptions
  46.                         (prompt
  47.                            "Suche aus was Du vom Package"
  48.                            (" %s installieren willst" ProductName)
  49.                         )
  50.                         (help
  51.                                 "Hier kannst Du aussuchen welche Teile (Modules) Du vom"
  52.                                 (" Package %s installieren willst.\n" ProductName)
  53.                                 "\n"
  54.                                 "*** Atapi Device Driver\n"
  55.                                 "Hiermit wird der wichtige Device-Treiber"
  56.                                 " (cd.device ) ins Verzeichnis Devs: kopiert (Fundamental)\n"
  57.                                 "\n"
  58.                                 "*** CDplusplusFS\n"
  59.                                 "Mit dieser Option wird das spezielle Filesystem"
  60.                                 " der CD++ ins Verzeichnis L: kopiert (ratbar).\n"
  61.                                 "\n"
  62.                                 "*** MAP-Mini Atapi Player\n"
  63.                                 "Mit dieser Option wird der Mini Player"
  64.                                 " für CD-Audio ins Verzeichnis Utilities kopiert.\n"
  65.                                 "\n"
  66.                                 "*** TRKDownLoad Track-Downloader\n"
  67.                                 "Mit dieser Option wird das Program TRKDownload"
  68.                                 " (fürs Download von CD-Spuren) in Utilities kopiert.\n"
  69.                                 "\n"
  70.                                 "*** PlayCDXL\n"
  71.                                 "Mit dieser Option wird PlayCDXL ( ein Program"
  72.                                 " fürs Abspielen von CDXL Files ) in Utilities kopiert.\n"
  73.                                 "\n"
  74.                                 @askoptions-help
  75.                         )
  76.                         (choices
  77.                                 ; bit position 0 -- todo & 1
  78.                                 ;
  79.                                 "Atapi Device Driver          (16 Kbytes)"
  80.  
  81.                                 ; bit position 1 -- todo & 2
  82.                                 ;
  83.                                 "CDplusplusFS - CD Filesystem (23 Kbytes)"
  84.  
  85.                                 ; bit position 2 -- todo & 4
  86.                                 ;
  87.                                 "MAP- Mini Atapi Player       ( 9 Kbytes)"
  88.  
  89.                                 ; bit position 3 -- todo & 8
  90.                                 ;
  91.                                 "TRKDownLoad- Track DownLoader(15 Kbytes)"
  92.  
  93.                                 ; bit position 4 -- todo & 16
  94.                                 ;
  95.                                 "PlayCDXL - Player Film CDXL  (30 Kbytes)"
  96.  
  97.                         )
  98.                 )
  99.         )
  100.   )
  101. )
  102. ;///
  103.  
  104. ;/// Proc setDirPath
  105.  
  106. (procedure setDirPath
  107. ;
  108. ; ****************************
  109. ; * Ask the user for a directory name.
  110. ; ****************************
  111. ;
  112. ; these variables must be defined before calling this procedure:
  113. ;    DirPath
  114. ;
  115. ; this procedure returns the selected directory in DirPath
  116. ;
  117.    (
  118.  
  119.        (set DirPath
  120.                (askdir
  121.                        (prompt ("Wo soll das Package installiert werden   ( Normalerweise SYS: )" )
  122.  
  123.                        )
  124.                        (help   "Atapi Plug'n Play wird in das ausgesuchte Verzeichnis"
  125.                                " Installiert.\n"
  126.                                "Wenn Du es in eine Diskette installieren möchtest"
  127.                                " dann stecke diese in den Drive und suche Sie aus"
  128.                                " der Liste aus.\n"
  129.                                "\n"
  130.                                @askdir-help
  131.                        )
  132.                        (disk)
  133.                        (default "SYS:")
  134.                )
  135.        )
  136.  
  137.  
  138.  
  139.    )
  140. )
  141. ;///
  142.  
  143. ;/// Proc AskFsIcon
  144. ;
  145. ;
  146. (procedure AskFsIcon
  147. ;
  148. ; This procedure ask of wich cd Icon you want to install with wich Name
  149. ; It requires initialization of variables:
  150. ;
  151. ; In "DefaultIcon" ci deve essere quella accesa di default
  152. ; 
  153. ; Ridà in "IconChoose" qual icona
  154. ; 0 nessuna - 1 AmiCDFilesystem
  155. ; 2 AmiCDFS - 3 CDfilesystem - 4 CDplusplusFS
  156. ;
  157.   (
  158.     (set IconChoose
  159.      
  160.            (askchoice
  161.                 (prompt "Suche aus,für welches CD-Filesystem du ein Piktogram installieren möchtest")
  162.                 (help
  163.                         "Hier kannst du aussuchen für welches Dateinsystem"
  164.                         " Atapi Plug'n Play Installiert werden soll.\n"
  165.                         "Hast Du schon CDplusplusFS installiert dann suche am besten"
  166.                         " diese Möglichkeit aus.\n"
  167.                         "\n"
  168.                         "Sollte Dein CD-filesystem nicht in der Liste"
  169.                         " vorkommen dann suche -Keines- aus , und"
  170.                         " modifizier später die Tooltypes im"
  171.                         " Piktogram :\n"
  172.                         "Device wird\nDevice=cd.device\n"
  173.                         "und Unit wird\nUnit=0\n\n"
  174.                         @askchoice-help
  175.                 )
  176.                 (choices
  177.                         "-Keines"
  178.                         "-AmiCDFileSystem - by Nicola Salmoria"
  179.                         "-cdrom-handler   - by Frank Munkert"
  180.                         "-CDFileSystem    - by CBM Commodore"
  181.                         "-CDplusplusFS    - by CD++"
  182.                 )
  183.                 (default DefaultIcon)
  184.            )
  185.     )
  186.   )
  187. )
  188. ;///
  189.  
  190. ;/// Proc GetDevName
  191. ;
  192. ;  in DevName si ritrova il nome da usare per l'icona
  193. ;
  194.  
  195.  
  196. (procedure GetDevName
  197.    
  198.    (
  199.      (set DevName
  200.            (askstring
  201.                      (prompt "Schreibe hier den Namen für das installierte CD-Laufwerk ohne den Doppelpunkt\nz.B. CD0")
  202.                      (help
  203.                              "Der ausgesuchte Name wird der"
  204.                              "  Name des Devices\n"
  205.                              "Es ist ratbar keinen langen Namen"
  206.                              " auszusucheni\n"
  207.                              "\nAm besten CD0 oder CD1 usw."
  208.                              " weil viele Programe diesen"
  209.                              " Namen suchen\n"
  210.                      )
  211.                      (default "CD0")
  212.            )
  213.      )
  214.    )
  215. )
  216. ;///
  217.  
  218. ;/// Proc AskAutoMount
  219. ;
  220. ;
  221. (procedure AskAutoMount
  222. ;
  223. ; Chiede se l'icona deve essere inserita nel devs Dosdrivers o nel
  224. ; storage dosdrivers
  225. ;
  226.   (
  227.     (set AutoMount
  228.      
  229.            (askbool
  230.                 (prompt "Möchtest Du daß das Laufwerk bei jedem Computerstart"
  231.                         " automatisch angeschaltet wird (Mount) ,"
  232.                         " statt manuell per-Mauseklick ?"
  233.                 )
  234.                 (help
  235.                         "Wenn Du positiv antwortest wird das Piktogram"
  236.                         " des Devices in das Verzeichnis:\n"
  237.                         "Devs:Dosdrivers kopiert\n"
  238.                         "Bei jedem Start wird so auch automatisch das"
  239.                         " CD-Laufwerk gestarted\n\n"
  240.                         "Ansonsten wird es in: Storage:DosDrivers\n"
  241.                         " kopiert , und Du mußt per-Hand auf das"
  242.                         " Piktogram klicken um daß Laufwerk zu -Mounten-"
  243.                 )
  244.                 (choices
  245.                         "Automatisch beim Start"
  246.                         "Nein , manuell"
  247.                 )
  248.                 (default 1)
  249.            )
  250.     )
  251.   )
  252. )
  253. ;///
  254.  
  255.  
  256. ; *************************************************************************
  257. ; *                         ACTUAL START OF SCRIPT
  258. ; *
  259. ; * Ask all questions for the user now, do all of the work later.
  260. ; *************************************************************************
  261. ;
  262. ;/// MAIN SCRIPT
  263. (onerror
  264.  
  265. )
  266. ; ****************************
  267. ;  Check for OS Version
  268. ; ****************************
  269.  
  270. (if (= DemoVersion 1)
  271.     (message "\n" "\n"
  272.              "Achtung: Das hier ist eine DEMO Version\n"
  273.              "vom Program  A4000_Atapi_Deu !\n"
  274.              "DU KANNST ES JEDEM KOMPLETT\n"
  275.              "WEITERGEBEN (ausser den Crakker)" "\n"
  276.              "\n" "\n" "\n"
  277.              "Atapi Plug'n Play is Copyright by \n"
  278.              "Georg Campana & Marco Campinoti ©1994"
  279.              (help "Wenn Du die registrierte Version erhalten möchtest dann lies das Handbuch oder rufe 0039/565/850621 an")
  280.     )
  281. )
  282.  
  283.  
  284. ; ****************************
  285. ; ****************************
  286. ;
  287.  
  288. (set DirPath "SYS:")
  289.  
  290. (setDirPath)
  291.  
  292. (set @default-dest DirPath)
  293.  
  294. (set devdest  (tackon @default-dest "Devs"))
  295. (set fsdest   (tackon @default-dest "L"))
  296. (set utildest (tackon @default-dest "Utilities"))
  297.  
  298.  
  299. (setPkgOpts)
  300.  
  301. (set DefaultIcon 0)
  302.  
  303. (if (= (exists (tackon fsdest "AmiCDFileSystem")) 1)
  304.     (set DefaultIcon 1)
  305. )
  306.  
  307. (if (= (exists (tackon fsdest "cdrom-handler")) 1)
  308.     (set DefaultIcon 2)
  309. )
  310.  
  311. (if (= (exists (tackon fsdest "CDFileSystem")) 1)
  312.     (set DefaultIcon 3)
  313. )
  314.  
  315. (if (IN PkgOpts 1)
  316.     (set DefaultIcon 4)
  317. )
  318.  
  319. (AskFsIcon)
  320.  
  321. (select IconChoose
  322.    (set FsName 0)
  323.    (set FsName "AmiCDFS")
  324.    (set FsName "AmiCDHandler")
  325.    (set FsName "CbmCDFS")
  326.    (set FsName "CDplusplusFS")
  327. )
  328.  
  329.  
  330. (set AutoMount 1)
  331. (set DevName "CD0")
  332.  
  333. (if (> @user-level 1)
  334.  
  335.     (if (<> IconChoose 0)
  336.         (
  337.          (GetDevName)
  338.          (AskAutoMount)
  339.         )
  340.     )
  341. )
  342.  
  343. (if (= AutoMount 1)
  344.     (set Icondest  (tackon @default-dest "Devs"))
  345.     (set Icondest  (tackon @default-dest "Storage"))
  346. )
  347.  
  348.  
  349.  
  350.  
  351.  
  352. (if (IN PkgOpts 0)
  353.     (set MemSpace (+ MemSpace 16000))
  354. )
  355. (if (IN PkgOpts 1)
  356.     (set MemSpace (+ MemSpace 23000))
  357. )
  358. (if (IN PkgOpts 2)
  359.     (set MemSpace (+ MemSpace  9000))
  360. )
  361. (if (IN PkgOpts 3)
  362.     (set MemSpace (+ MemSpace 30000))
  363. )
  364. (if (IN PkgOpts 4)
  365.     (set MemSpace (+ MemSpace 14000))
  366. )
  367. (if (<> IconChoose )
  368.     (set MemSpace (+ MemSpace 1000))
  369. )
  370.  
  371. (if (< (getdiskspace DirPath) MemSpace)
  372.     (if(> (getdiskspace DirPath) 0)
  373.        (
  374.           (abort "ACHTUNG: Der übrige Speicherplatz\n"
  375.                  ("auf der Platte %s\n" DirPath)
  376.                  ("beträgt nur um %ld bytes\n" (getdiskspace DirPath) )
  377.                  ("und es werden mindestens %ld benötigt\n" MemSpace)
  378.                  "\n"
  379.                  "Du kannst nochmal auf Install klicken\n"
  380.                  "und weniger Utilities aussuchen , oder\n"
  381.                  "unnötige Files von der Ziel-Platte\n"
  382.                  ("%s löschen\n" DirPath)
  383.           )
  384.        )
  385.     )
  386. )
  387.  
  388.  
  389.  
  390.  
  391.  
  392.  
  393.  
  394.  
  395.  
  396.  
  397.  
  398.  
  399.  
  400.  
  401. ; if bit position 0 is on  Installa device
  402. (if (IN PkgOpts 0)
  403.      (
  404.  
  405.         
  406.         (if (< (exists devdest (noreq)) 2)
  407.  
  408.             (makedir devdest
  409.                (prompt "Neues Verzeichnis -Devs-")
  410.                (infos)
  411.             )
  412.         )
  413.  
  414.  
  415.         (copylib
  416.             (prompt "Installiere Device Driver")
  417.             (source (tackon Disk1Name "devs/cd.device"))
  418.             (dest devdest)
  419.             (optional force)
  420.         )
  421.         
  422.  
  423.      )
  424. )
  425. ; if bit position 1 is on Installa FileSystem
  426. (if (IN PkgOpts 1)
  427.      (
  428.  
  429.         
  430.         (if (< (exists fsdest (noreq)) 2)
  431.  
  432.             (makedir fsdest
  433.                (prompt "Neues Verzeichnis -L-")
  434.             )
  435.         )
  436.  
  437.  
  438.         (copylib
  439.             (prompt "Installiere FileSystem von CD++")
  440.             (source (tackon Disk1Name "l/CDplusplusFS"))
  441.             (dest fsdest)
  442.             (optional force)
  443.         )
  444.         
  445.  
  446.      )
  447. )
  448.  
  449. ; if bit position 2 is on Installa MAP
  450. (if (IN PkgOpts 2)
  451.      (
  452.  
  453.         
  454.         (if (< (exists utildest (noreq)) 2)
  455.  
  456.             (makedir utildest
  457.                (prompt "Neues Verzeichnis -Utilities-")
  458.                (infos)
  459.             )
  460.         )
  461.  
  462.  
  463.         (copyfiles
  464.             (prompt "Installiere Mini Atapi Player")
  465.             (source (tackon Disk1Name "utilities/MAP"))
  466.             (dest utildest)
  467.             (infos)
  468.             (optional force)
  469.         )
  470.         
  471.  
  472.      )
  473. )
  474.  
  475. ; if bit position 3 is on Installa TRKDownLoad
  476. (if (IN PkgOpts 3)
  477.      (
  478.  
  479.         
  480.         (if (< (exists utildest (noreq)) 2)
  481.  
  482.             (makedir utildest
  483.                (prompt "Neues Verzeichnis -Utilities-")
  484.                (infos)
  485.             )
  486.         )
  487.  
  488.  
  489.         (copyfiles
  490.             (prompt "Installiere TrkDownLoader")
  491.             (source (tackon Disk1Name "utilities/TRKDownLoad"))
  492.             (dest utildest)
  493.             (infos)
  494.             (optional force)
  495.         )
  496.         
  497.  
  498.      )
  499. )
  500.  
  501. ; if bit position 4 is on Installa PlayCDXL
  502. (if (<> DemoVersion 1)
  503.    (if (IN PkgOpts 4)
  504.         (
  505.  
  506.            
  507.            (if (< (exists utildest (noreq)) 2)
  508.  
  509.                (makedir utildest
  510.                   (prompt "Neues Verzeichnis -Utilities-")
  511.                   (infos)
  512.                )
  513.            )
  514.  
  515.  
  516.            (copyfiles
  517.                (prompt "Installiere PlayCDXL")
  518.                (source (tackon Disk1Name "utilities/PlayCDXL"))
  519.                (dest utildest)
  520.                (infos)
  521.                (optional force)
  522.            )
  523.            
  524.  
  525.         )
  526.    )
  527. )
  528. (if (> IconChoose 0)
  529.     (
  530.         (if (< (exists Icondest (noreq)) 2)
  531.  
  532.             (makedir Icondest
  533.                (prompt "Neues Verzeichnis Devs oder Storage")
  534.                (infos)
  535.             )
  536.         )
  537.  
  538.         (set Icondest  (tackon Icondest "Dosdrivers"))
  539.          
  540.         (copyfiles
  541.             (prompt "Installiere Device-Piktogram")
  542.             (source (tackon Disk1Name (tackon "Devs/Storage" FsName)))
  543.             (dest IconDest)
  544.             (newname  DevName)
  545.             (infos)
  546.             (optional force)
  547.         )
  548.  
  549.     
  550.         (if (= AutoMount 1)
  551.             ( message "\n" "\n"
  552.                    "Bei jedem starten des Computers wird\n"
  553.                    "das CD-Laufwerk automatisch ins System\n"
  554.                    "eingebindet !\n"
  555.                    "\n"
  556.                    "Du kannst dieses Verhalten jederzeit verändern\n"
  557.                    ("indem Du das Piktogram %s vom Verzeichnis" DevName)
  558.                    "Devs/Dosdrivers ins Verzeichnis Storage/Dosdrivers\n"
  559.                    "verschiebst\n"
  560.             )
  561.             ( message "\n" "\n"
  562.                    "Du kannst jederzeit das CD-ROM Laufwerk einbinden \n"
  563.                    ("indem du zweimal auf %s\n" DevName)
  564.                    "im Verzeichnis Storage/Dosdrivers klickst\n"
  565.                    "Soll es automatisch eigebunden werden, dann\n"
  566.                    "verschieb das Piktogram ins Verzeichnis Devs/Dosdrivers"
  567.             )
  568.         )
  569.     )
  570.     ( message "\n" "\n"
  571.            "Es wurde kein Piktogram für das\n"
  572.            "CD-ROM Laufwerk ausgesucht .\n"
  573.            "Du mußt es Dir deshalb selber bauen!\n"
  574.            "\n"
  575.            "Du kannst auch nocheinmal auf -Install- klicken\n"
  576.            "und Dir ein CD-Filesystem aussuchen\n"
  577.     )
  578.  
  579. )
  580.  
  581. (exit)
  582. ;///
  583.